﻿Imports System.ComponentModel
Imports System.Collections.ObjectModel

Public Class CTConciliaCupones

    Private _InstNum As Long
    Private _Instrumento As String
    Private _TipoInstrumento As String
    Private _TipoInstrumentoValmer As String
    Private _Moneda As ObservableCollection(Of String)
    Private _CurCod As String
    Private _Tipo As String
    Private _EvtTyp As String
    Private _EvtNum As Long
    Private _Factor As Double
    Private _Mercado As String
    Private _FechaPago As Date
    Private _FechaSugerida As Date
    Private _FechaExcupon As Date
    Private _FechaDecalog As Date
    Private _Emisora As String
    Private _TipoDerecho As String
    Private _FechaPagoS As String
    Private _FechaSugeridaS As String
    Private _FechaExcuponS As String
    Private _FechaDecalogS As String
    Private _Origen As String
    
#Region "Porpiedades de la clase"
    
    Public Property InstNum As Long
        Get
            InstNum = Me._InstNum
        End Get
        Set(ByVal value As Long)
            Me._InstNum = value
        End Set
    End Property

    Public Property Instrumento As String
        Get
            Instrumento = Me._Instrumento
        End Get
        Set(ByVal value As String)
            Me._Instrumento = value
        End Set
    End Property

    Public Property TipoInstrumento As String
        Get
            TipoInstrumento = Me._TipoInstrumento
        End Get
        Set(ByVal value As String)
            Me._TipoInstrumento = value
        End Set
    End Property

    Public Property TipoInstrumentoValmer As String
        Get
            TipoInstrumentoValmer = Me._TipoInstrumentoValmer
        End Get
        Set(ByVal value As String)
            Me._TipoInstrumentoValmer = value
        End Set
    End Property

    Public Property Moneda As ObservableCollection(Of String)
        Get
            Moneda = Me._Moneda
        End Get
        Set(ByVal value As ObservableCollection(Of String))
            Me._Moneda = value
        End Set
    End Property

    Public Property CurCod As String
        Get
            CurCod = Me._CurCod
        End Get
        Set(ByVal value As String)
            Me._CurCod = value
        End Set
    End Property

    Public Property Tipo As String
        Get
            Tipo = Me._Tipo
        End Get
        Set(ByVal value As String)
            Me._Tipo = value
        End Set
    End Property

    Public Property EvtTyp As String
        Get
            EvtTyp = Me._EvtTyp
        End Get
        Set(ByVal value As String)
            Me._EvtTyp = value
        End Set
    End Property

    Public Property EvtNum As Long
        Get
            EvtNum = Me._EvtNum
        End Get
        Set(ByVal value As Long)
            Me._EvtNum = value
        End Set
    End Property

    Public Property Factor As Double
        Get
            Factor = Me._Factor
        End Get
        Set(ByVal value As Double)
            Me._Factor = value
        End Set
    End Property

    Public Property Mercado As String
        Get
            Mercado = Me._Mercado
        End Get
        Set(ByVal value As String)
            Me._Mercado = value
        End Set
    End Property

    Public Property FechaPago As Date
        Get
            FechaPago = Me._FechaPago
        End Get
        Set(ByVal value As Date)
            Me._FechaPago = value
        End Set
    End Property

    Public Property FechaSugerida As Date
        Get
            FechaSugerida = Me._FechaSugerida
        End Get
        Set(ByVal value As Date)
            Me._FechaSugerida = value
        End Set
    End Property

    Public Property FechaExcupon As Date
        Get
            FechaExcupon = Me._FechaExcupon
        End Get
        Set(ByVal value As Date)
            Me._FechaExcupon = value
        End Set
    End Property

    Public Property FechaDecalog As Date
        Get
            FechaDecalog = Me._FechaDecalog
        End Get
        Set(ByVal value As Date)
            Me._FechaDecalog = value
        End Set
    End Property

    Public Property Emisora As String
        Get
            Emisora = Me._Emisora
        End Get
        Set(ByVal value As String)
            Me._Emisora = value
        End Set
    End Property

    Public Property TipoDerecho As String
        Get
            TipoDerecho = Me._TipoDerecho
        End Get
        Set(ByVal value As String)
            Me._TipoDerecho = value
        End Set
    End Property

    Public ReadOnly Property FechaPagoS As String
        Get
            If Me._FechaPago = Nothing Then
                FechaPagoS = ""
            Else
                FechaPagoS = Me._FechaPago.ToString("dd/MM/yyyy")
            End If
        End Get
    End Property

    Public ReadOnly Property FechaSugeridaS As String
        Get
            If Me._FechaSugerida = Nothing Then
                FechaSugeridaS = ""
            Else
                FechaSugeridaS = Me._FechaSugerida.ToString("dd/MM/yyyy")
            End If
        End Get
    End Property

    Public ReadOnly Property FechaExcuponS As String
        Get
            If Me._FechaExcupon = Nothing Then
                FechaExcuponS = ""
            Else
                FechaExcuponS = Me._FechaExcupon.ToString("dd/MM/yyyy")
            End If
        End Get
    End Property

    Public ReadOnly Property FechaDecalogS As String
        Get
            If Me._FechaDecalog = Nothing Then
                FechaDecalogS = ""
            Else
                FechaDecalogS = Me._FechaDecalog.ToString("dd/MM/yyyy")
            End If
        End Get
    End Property

    Public Overrides Function ToString() As String
        Return Instrumento
    End Function

    Public Property Origen As String
        Get
            Origen = Me._Origen
        End Get
        Set(ByVal value As String)
            Me._Origen = value
        End Set
    End Property

#End Region

End Class
